home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Interfaces / UniversalInterfaces 2.1B1 / PInterfaces / OCEMail.p < prev    next >
Encoding:
Text File  |  1995-04-18  |  46.6 KB  |  1,701 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        OCEMail.p
  3.  
  4.      Contains:    Apple Open Collaboration Environment OCEMail Interfaces.
  5.  
  6.      Version:    Technology:    AOCE Toolbox 1.02
  7.                  Package:    Universal Interfaces 2.1ß1 in “MPW Prerelease” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT OCEMail;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __OCEMAIL__}
  30. {$SETC __OCEMAIL__ := 1}
  31.  
  32. {$I+}
  33. {$SETC OCEMailIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __APPLEEVENTS__}
  38. {$I AppleEvents.p}
  39. {$ENDC}
  40. {    Errors.p                                                    }
  41. {        ConditionalMacros.p                                        }
  42. {    Types.p                                                        }
  43. {    Memory.p                                                    }
  44. {        MixedMode.p                                                }
  45. {    OSUtils.p                                                    }
  46. {    Events.p                                                    }
  47. {        Quickdraw.p                                                }
  48. {            QuickdrawText.p                                        }
  49. {    EPPC.p                                                        }
  50. {        AppleTalk.p                                                }
  51. {        Files.p                                                    }
  52. {        PPCToolbox.p                                            }
  53. {        Processes.p                                                }
  54. {    Notification.p                                                }
  55.  
  56. {$IFC UNDEFINED __FILES__}
  57. {$I Files.p}
  58. {$ENDC}
  59.  
  60. {$IFC UNDEFINED __MEMORY__}
  61. {$I Memory.p}
  62. {$ENDC}
  63.  
  64. {$IFC UNDEFINED __TEXTEDIT__}
  65. {$I TextEdit.p}
  66. {$ENDC}
  67.  
  68. {$IFC UNDEFINED __TYPES__}
  69. {$I Types.p}
  70. {$ENDC}
  71.  
  72. {$IFC UNDEFINED __DIGITALSIGNATURE__}
  73. {$I DigitalSignature.p}
  74. {$ENDC}
  75.  
  76. {$IFC UNDEFINED __OCE__}
  77. {$I OCE.p}
  78. {$ENDC}
  79. {    Aliases.p                                                    }
  80. {    Script.p                                                    }
  81. {        IntlResources.p                                            }
  82.  
  83. {$IFC UNDEFINED __OCEAUTHDIR__}
  84. {$I OCEAuthDir.p}
  85. {$ENDC}
  86.  
  87. {$IFC UNDEFINED __OCEMESSAGING__}
  88. {$I OCEMessaging.p}
  89. {$ENDC}
  90.  
  91. {$PUSH}
  92. {$ALIGN MAC68K}
  93. {$LibExport+}
  94. TYPE
  95.     MSAMIOCompletionProcPtr = ProcPtr;  { PROCEDURE MSAMIOCompletion(VAR paramBlock: MSAMParam); }
  96.     MSAMIOCompletionUPP = UniversalProcPtr;
  97.  
  98.     MailMsgRef = LONGINT;
  99.  
  100. { reference to an open msam queue }
  101.     MSAMQueueRef = LONGINT;
  102.  
  103. { identifies slots managed by a PMSAM }
  104.     MSAMSlotID = INTEGER;
  105.  
  106. { reference to an active mailbox }
  107.     MailboxRef = LONGINT;
  108.  
  109. { identifies slots within a mailbox }
  110.     MailSlotID = INTEGER;
  111.  
  112. { identifies a letter in a mailbox }
  113.     MailSeqNum = RECORD
  114.         slotID:                    MailSlotID;
  115.         seqNum:                    LONGINT;
  116.     END;
  117.  
  118. { A MailBuffer is used to describe a buffer used for an IO operation.
  119. The location of the buffer is pointed to by 'buffer'. 
  120. When reading, the size of the buffer is 'bufferSize' 
  121. and the size of data actually read is 'dataSize'.
  122. When writing, the size of data to be written is 'bufferSize' 
  123. and the size of data actually written is 'dataSize'.
  124. }
  125.     MailBuffer = RECORD
  126.         bufferSize:                LONGINT;
  127.         buffer:                    Ptr;
  128.         dataSize:                LONGINT;
  129.     END;
  130.  
  131. { A MailReply is used to describe a commonly used reply buffer format.
  132. It contains a count of tuples followed by an array of tuples.
  133. The format of the tuple itself depends on each particular call.
  134. }
  135.     MailReply = RECORD
  136.         tupleCount:                INTEGER;
  137.         { tuple[tupleCount] }
  138.     END;
  139.  
  140. { Shared Memory Communication Area used when Mail Manager sends 
  141. High Level Events to a PMSAM. 
  142. }
  143.     SMCA = RECORD
  144.         smcaLength:                INTEGER;                                { includes size of smcaLength field }
  145.         result:                    OSErr;
  146.         userBytes:                LONGINT;
  147.         CASE INTEGER OF
  148.         0: (
  149.             slotCID:                    CreationID;                            { for create/modify/delete slot calls }
  150.            );
  151.         1: (
  152.             msgHint:                    LONGINT;                            { for kMailEPPCMsgOpened }
  153.            );
  154.     END;
  155.  
  156. {************************************************************************************}
  157. { Value of creator and types fields for messages and blocks defined by MailManager }
  158.  
  159. CONST
  160.     kMailAppleMailCreator        = 'apml';                        { message and letter block creator }
  161.     kMailLtrMsgType                = 'lttr';                        { message type of letters, reports }
  162.     kMailLtrHdrType                = 'lthd';                        { contains letter header }
  163.     kMailContentType            = 'body';                        { contains content of letter }
  164.     kMailEnclosureListType        = 'elst';                        { contains list of enclosures }
  165.     kMailEnclosureDesktopType    = 'edsk';                        { contains desktop mgr info for enclosures }
  166.     kMailEnclosureFileType        = 'asgl';                        { contains a file enclosure }
  167. { format is defined by AppleSingle }
  168.     kMailImageBodyType            = 'imag';                        { contains image of letter }
  169. {        format is struct TPfPgDir - in Printing.h
  170.     *    struct TPfPgDir (
  171.     *        short    pageCount;        - number of pages in the image.
  172.     *        long    iPgPos[129];    - iPgPos[n] is the offset from the start of the block
  173.     *                                - to image of page n.
  174.     *                                - iPgPos[n+1] - iPgPos[n] is the length of page n.
  175. }
  176.     kMailMSAMType                = 'gwyi';                        { contains msam specific information }
  177.     kMailTunnelLtrType            = 'tunl';                        { used to read a tunnelled message }
  178.     kMailHopInfoType            = 'hopi';                        { used to read hopInfo for a tunnelled message }
  179.     kMailReportType                = 'rpti';                        { contains report info }
  180. {
  181. Reports have the isReport bit set in MailIndications and contain a block of type kMailReport.
  182. This block has a header, IPMReportBlockHeader,
  183. followed by an array of elements, each of type IPMRecipientReport
  184.  
  185. Various families used by mail or related msgs
  186. }
  187.     kMailFamily                    = 'mail';                        { Defines family of "mail" msgs: content, header, etc }
  188.     kMailFamilyFile                = 'file';
  189.  
  190. {************************************************************************************}
  191.     
  192. TYPE
  193.     MailAttributeID = INTEGER;
  194.  
  195. { Values of MailAttributeID }
  196. { Message store attributes - stored in the catalog }
  197. { Will always be present in a letter and have fixed sizes }
  198.  
  199. CONST
  200.     kMailLetterFlagsBit            = 1;                            { MailLetterFlags }
  201. { Letter attributes - stored in the letter 
  202.    Will always be present in a letter and have fixed sizes }
  203.     kMailIndicationsBit            = 3;                            { MailIndications }
  204.     kMailMsgTypeBit                = 4;                            { OCECreatorType }
  205.     kMailLetterIDBit            = 5;                            { MailLetterID }
  206.     kMailSendTimeStampBit        = 6;                            { MailTime }
  207.     kMailNestingLevelBit        = 7;                            { MailNestingLevel }
  208.     kMailMsgFamilyBit            = 8;                            { OSType }
  209. { Letter attributes - stored in the letter
  210.    May be present in a letter and have fixed sizes }
  211.     kMailReplyIDBit                = 9;                            { MailLetterID }
  212.     kMailConversationIDBit        = 10;                            { MailLetterID }
  213. { Letter attributes - stored in the letter
  214.    May be present in a letter and have variable length sizes }
  215.     kMailSubjectBit                = 11;                            { RString }
  216.     kMailFromBit                = 12;                            { MailRecipient }
  217.     kMailToBit                    = 13;                            { MailRecipient }
  218.     kMailCcBit                    = 14;                            { MailRecipient }
  219.     kMailBccBit                    = 15;                            { MailRecipient }
  220.  
  221.     
  222. TYPE
  223.     MailAttributeMask = LONGINT;
  224.  
  225. { Values of MailAttributeMask }
  226.  
  227. CONST
  228.     kMailLetterFlagsMask        = 1 * (2**((kMailLetterFlagsBit - 1)));
  229.     kMailIndicationsMask        = 1 * (2**((kMailIndicationsBit - 1)));
  230.     kMailMsgTypeMask            = 1 * (2**((kMailMsgTypeBit - 1)));
  231.     kMailLetterIDMask            = 1 * (2**((kMailLetterIDBit - 1)));
  232.     kMailSendTimeStampMask        = 1 * (2**((kMailSendTimeStampBit - 1)));
  233.     kMailNestingLevelMask        = 1 * (2**((kMailNestingLevelBit - 1)));
  234.     kMailMsgFamilyMask            = 1 * (2**((kMailMsgFamilyBit - 1)));
  235.     kMailReplyIDMask            = 1 * (2**((kMailReplyIDBit - 1)));
  236.     kMailConversationIDMask        = 1 * (2**((kMailConversationIDBit - 1)));
  237.     kMailSubjectMask            = 1 * (2**((kMailSubjectBit - 1)));
  238.     kMailFromMask                = 1 * (2**((kMailFromBit - 1)));
  239.     kMailToMask                    = 1 * (2**((kMailToBit - 1)));
  240.     kMailCcMask                    = 1 * (2**((kMailCcBit - 1)));
  241.     kMailBccMask                = 1 * (2**((kMailBccBit - 1)));
  242.  
  243.     
  244. TYPE
  245.     MailAttributeBitmap = LONGINT;
  246.  
  247. {************************************************************************************}
  248.     MailLetterSystemFlags = INTEGER;
  249.  
  250. { Values of MailLetterSystemFlags }
  251. { letter is available locally (either by nature or via cache) }
  252.  
  253. CONST
  254.     kMailIsLocalBit                = 2;
  255.  
  256.     kMailIsLocalMask            = 1 * (2**(kMailIsLocalBit));
  257.  
  258.     
  259. TYPE
  260.     MailLetterUserFlags = INTEGER;
  261.  
  262.  
  263. CONST
  264.     kMailReadBit                = 0;                            { this letter has been opened }
  265.     kMailDontArchiveBit            = 1;                            { this letter is not }
  266. { to be archived either because 
  267.                                            it has already been archived or 
  268.                                            it should not be archived. }
  269.     kMailInTrashBit                = 2;                            { this letter is in trash }
  270.  
  271. { Values of MailLetterUserFlags }
  272.     kMailReadMask                = 1 * (2**(kMailReadBit));
  273.     kMailDontArchiveMask        = 1 * (2**(kMailDontArchiveBit));
  274.     kMailInTrashMask            = 1 * (2**(kMailInTrashBit));
  275.  
  276.  
  277. TYPE
  278.     MailLetterFlags = RECORD
  279.         sysFlags:                MailLetterSystemFlags;
  280.         userFlags:                MailLetterUserFlags;
  281.     END;
  282.  
  283.     MailMaskedLetterFlags = RECORD
  284.         flagMask:                MailLetterFlags;                        { flags that are to be set }
  285.         flagValues:                MailLetterFlags;                        { and their values }
  286.     END;
  287.  
  288.  
  289. CONST
  290.     kMailOriginalInReportBit    = 1;
  291.     kMailNonReceiptReportsBit    = 3;
  292.     kMailReceiptReportsBit        = 4;
  293.     kMailForwardedBit            = 5;
  294.     kMailPriorityBit            = 6;
  295.     kMailIsReportWithOriginalBit = 8;
  296.     kMailIsReportBit            = 9;
  297.     kMailHasContentBit            = 10;
  298.     kMailHasSignatureBit        = 11;
  299.     kMailAuthenticatedBit        = 12;
  300.     kMailSentBit                = 13;
  301.  
  302. { Values of MailIndications }
  303.     kMailSentMask                = 1 * (2**((kMailSentBit - 1)));
  304.     kMailAuthenticatedMask        = 1 * (2**((kMailAuthenticatedBit - 1)));
  305.     kMailHasSignatureMask        = 1 * (2**((kMailHasSignatureBit - 1)));
  306.     kMailHasContentMask            = 1 * (2**((kMailHasContentBit - 1)));
  307.     kMailIsReportMask            = 1 * (2**((kMailIsReportBit - 1)));
  308.     kMailIsReportWithOriginalMask = 1 * (2**((kMailIsReportWithOriginalBit - 1)));
  309.     kMailPriorityMask            = 3 * (2**((kMailPriorityBit - 1)));
  310.     kMailForwardedMask            = 1 * (2**((kMailForwardedBit - 1)));
  311.     kMailReceiptReportsMask        = 1 * (2**((kMailReceiptReportsBit - 1)));
  312.     kMailNonReceiptReportsMask    = 1 * (2**((kMailNonReceiptReportsBit - 1)));
  313.     kMailOriginalInReportMask    = 3 * (2**((kMailOriginalInReportBit - 1)));
  314.  
  315.     
  316. TYPE
  317.     MailIndications = LONGINT;
  318.  
  319. { values of the field originalInReport in MailIndications }
  320.  
  321. CONST
  322.     kMailNoOriginal                = 0;                            { do not enclose original in reports }
  323.     kMailEncloseOnNonReceipt    = 3;                            { enclose original in non-delivery reports }
  324.  
  325.     
  326. TYPE
  327.     MailLetterID = IPMMsgID;
  328.  
  329.     MailTime = RECORD
  330.         time:                    UTCTime;                                { current UTC(GMT) time }
  331.         offset:                    UTCOffset;                                { offset from GMT }
  332.     END;
  333.  
  334. { innermost letter has nestingLevel 0 }
  335.     MailNestingLevel = INTEGER;
  336.  
  337.     MailRecipient = OCERecipient;
  338.  
  339. {************************************************************************************}
  340.  
  341. CONST
  342.     kMailTextSegmentBit            = 0;
  343.     kMailPictSegmentBit            = 1;
  344.     kMailSoundSegmentBit        = 2;
  345.     kMailStyledTextSegmentBit    = 3;
  346.     kMailMovieSegmentBit        = 4;
  347.  
  348.     
  349. TYPE
  350.     MailSegmentMask = INTEGER;
  351.  
  352. { Values of MailSegmentMask }
  353.  
  354. CONST
  355.     kMailTextSegmentMask        = 1 * (2**(kMailTextSegmentBit));
  356.     kMailPictSegmentMask        = 1 * (2**(kMailPictSegmentBit));
  357.     kMailSoundSegmentMask        = 1 * (2**(kMailSoundSegmentBit));
  358.     kMailStyledTextSegmentMask    = 1 * (2**(kMailStyledTextSegmentBit));
  359.     kMailMovieSegmentMask        = 1 * (2**(kMailMovieSegmentBit));
  360.  
  361.     
  362. TYPE
  363.     MailSegmentType = INTEGER;
  364.  
  365. { Values of MailSegmentType }
  366.  
  367. CONST
  368.     kMailInvalidSegmentType        = 0;
  369.     kMailTextSegmentType        = 1;
  370.     kMailPictSegmentType        = 2;
  371.     kMailSoundSegmentType        = 3;
  372.     kMailStyledTextSegmentType    = 4;
  373.     kMailMovieSegmentType        = 5;
  374.  
  375. {************************************************************************************}
  376.     kMailErrorLogEntryVersion    = $101;
  377.     kMailMSAMErrorStringListID    = 128;                            { These 'STR#' resources should be }
  378.     kMailMSAMActionStringListID    = 129;                            { in the PMSAM resource fork }
  379.  
  380.     
  381. TYPE
  382.     MailLogErrorType = INTEGER;
  383.  
  384. { Values of MailLogErrorType }
  385.  
  386. CONST
  387.     kMailELECorrectable            = 0;
  388.     kMailELEError                = 1;
  389.     kMailELEWarning                = 2;
  390.     kMailELEInformational        = 3;
  391.  
  392.     
  393. TYPE
  394.     MailLogErrorCode = INTEGER;
  395.  
  396. { Values of MailLogErrorCode }
  397.  
  398. CONST
  399.     kMailMSAMErrorCode            = 0;                            { positive codes are indices into
  400.                                                    PMSAM defined strings }
  401.     kMailMiscError                = -1;                            { negative codes are OCE defined }
  402.     kMailNoModem                = -2;                            { modem required, but missing }
  403.  
  404.  
  405. TYPE
  406.     MailErrorLogEntryInfo = RECORD
  407.         version:                INTEGER;
  408.         timeOccurred:            UTCTime;                                { do not fill in }
  409.         reportingPMSAM:            Str31;                                    { do not fill in }
  410.         reportingMSAMSlot:        Str31;                                    { do not fill in }
  411.         errorType:                MailLogErrorType;
  412.         errorCode:                MailLogErrorCode;
  413.         errorResource:            INTEGER;                                { resources are valid if }
  414.         actionResource:            INTEGER;                                { errorCode = kMailMSAMErrorCode
  415.                                                    index starts from 1 }
  416.         filler:                    LONGINT;
  417.         filler2:                INTEGER;
  418.     END;
  419.  
  420. {************************************************************************************}
  421.     MailBlockMode = INTEGER;
  422.  
  423. { Values of MailBlockMode }
  424.  
  425. CONST
  426.     kMailFromStart                = 1;                            { write data from offset calculated from }
  427.     kMailFromLEOB                = 2;                            { start of block, end of block, }
  428.     kMailFromMark                = 3;                            { or from the current mark }
  429.  
  430.  
  431. TYPE
  432.     MailEnclosureInfo = RECORD
  433.         enclosureName:            StringPtr;
  434.         catInfo:                CInfoPBPtr;
  435.         comment:                StringPtr;
  436.         icon:                    Ptr;
  437.     END;
  438.  
  439. {************************************************************************************}
  440.  
  441. CONST
  442.     kOCESetupLocationNone        = 0;                            { disconnect state }
  443.     kOCESetupLocationMax        = 8;                            { maximum location value }
  444.  
  445.     
  446. TYPE
  447.     OCESetupLocation = CHAR;
  448.  
  449. { location state is a bitmask, 0x1=>1st location active, 
  450.  * 0x2 => 2nd, 0x4 => 3rd, etc.
  451.  }
  452.     MailLocationFlags = CHAR;
  453.  
  454.     MailLocationInfo = RECORD
  455.         location:                OCESetupLocation;
  456.         active:                    SInt8; (* MailLocationFlags *)
  457.     END;
  458.  
  459. {************************************************************************************}
  460. { Definitions for Personal MSAMs }
  461. {************************************************************************************}
  462.  
  463. CONST
  464.     kMailEPPCMsgVersion            = 3;
  465.  
  466.  
  467. TYPE
  468.     MailEPPCMsg = RECORD
  469.         version:                INTEGER;
  470.         CASE INTEGER OF
  471.         0: (
  472.             theSMCA:                    ^SMCA;                                { for 'crsl', 'mdsl', 'dlsl', 'sndi', 'msgo', 'admn' }
  473.            );
  474.         1: (
  475.             sequenceNumber:                LONGINT;                            { for 'inqu', 'dlom' }
  476.            );
  477.         2: (
  478.             locationInfo:                MailLocationInfo;                    { for 'locc' }
  479.            );
  480.     END;
  481.  
  482. { Values of OCE defined High Level Event message classes }
  483.  
  484. CONST
  485.     kMailEPPCCreateSlot            = 'crsl';
  486.     kMailEPPCModifySlot            = 'mdsl';
  487.     kMailEPPCDeleteSlot            = 'dlsl';
  488.     kMailEPPCShutDown            = 'quit';
  489.     kMailEPPCMailboxOpened        = 'mbop';
  490.     kMailEPPCMailboxClosed        = 'mbcl';
  491.     kMailEPPCMsgPending            = 'msgp';
  492.     kMailEPPCSendImmediate        = 'sndi';
  493.     kMailEPPCContinue            = 'cont';
  494.     kMailEPPCSchedule            = 'sked';
  495.     kMailEPPCAdmin                = 'admn';
  496.     kMailEPPCInQUpdate            = 'inqu';
  497.     kMailEPPCMsgOpened            = 'msgo';
  498.     kMailEPPCDeleteOutQMsg        = 'dlom';
  499.     kMailEPPCWakeup                = 'wkup';
  500.     kMailEPPCLocationChanged    = 'locc';
  501.  
  502.  
  503. TYPE
  504.     MailTimer = RECORD
  505.         CASE INTEGER OF
  506.         0: (
  507.             frequency:                    LONGINT;                            { how often to connect }
  508.            );
  509.         1: (
  510.             connectTime:                LONGINT;                            { time since midnight }
  511.            );
  512.     END;
  513.  
  514.  
  515. CONST
  516.     kMailTimerOff                = 0;                            { control is off }
  517.     kMailTimerTime                = 1;                            { specifies connect time (relative to midnight) }
  518.     kMailTimerFrequency            = 2;                            { specifies connect frequency }
  519.  
  520.     
  521. TYPE
  522.     MailTimerKind = Byte;
  523.  
  524.     MailTimers = RECORD
  525.         sendTimeKind:            SInt8; (* MailTimerKind *)                { either kMailTimerTime or kMailTimerFrequency }
  526.         receiveTimeKind:        SInt8; (* MailTimerKind *)                { either kMailTimerTime or kMailTimerFrequency }
  527.         send:                    MailTimer;
  528.         receive:                MailTimer;
  529.     END;
  530.  
  531.     MailStandardSlotInfoAttribute = RECORD
  532.         version:                INTEGER;
  533.         active:                    SInt8; (* MailLocationFlags *)            { active if MailLocationMask(i) is set }
  534.         padByte:                SInt8; (* Byte *)
  535.         sendReceiveTimer:        MailTimers;
  536.     END;
  537.  
  538.     PMSAMGetMSAMRecordPB = RECORD
  539.         qLink:                    Ptr;
  540.         reservedH1:                LONGINT;
  541.         reservedH2:                LONGINT;
  542.         ioCompletion:            MSAMIOCompletionUPP;
  543.         ioResult:                OSErr;
  544.         saveA5:                    LONGINT;
  545.         reqCode:                INTEGER;
  546.         msamCID:                CreationID;
  547.     END;
  548.  
  549.     PMSAMOpenQueuesPB = RECORD
  550.         qLink:                    Ptr;
  551.         reservedH1:                LONGINT;
  552.         reservedH2:                LONGINT;
  553.         ioCompletion:            MSAMIOCompletionUPP;
  554.         ioResult:                OSErr;
  555.         saveA5:                    LONGINT;
  556.         reqCode:                INTEGER;
  557.         inQueueRef:                MSAMQueueRef;
  558.         outQueueRef:            MSAMQueueRef;
  559.         msamSlotID:                MSAMSlotID;
  560.         filler:                    ARRAY [0..1] OF LONGINT;
  561.     END;
  562.  
  563.     PMSAMStatus = INTEGER;
  564.  
  565. { Values of PMSAMStatus }
  566.  
  567. CONST
  568.     kPMSAMStatusPending            = 1;                            { for inQueue and outQueue }
  569.     kPMSAMStatusError            = 2;                            { for inQueue and outQueue }
  570.     kPMSAMStatusSending            = 3;                            { for outQueue only }
  571.     kPMSAMStatusCaching            = 4;                            { for inQueue only }
  572.     kPMSAMStatusSent            = 5;                            { for outQueue only }
  573.  
  574.  
  575. TYPE
  576.     PMSAMSetStatusPB = RECORD
  577.         qLink:                    Ptr;
  578.         reservedH1:                LONGINT;
  579.         reservedH2:                LONGINT;
  580.         ioCompletion:            MSAMIOCompletionUPP;
  581.         ioResult:                OSErr;
  582.         saveA5:                    LONGINT;
  583.         reqCode:                INTEGER;
  584.         queueRef:                MSAMQueueRef;
  585.         seqNum:                    LONGINT;
  586.         msgHint:                LONGINT;                                { for posting cache error,set this to 0 when report outq status }
  587.         status:                    PMSAMStatus;
  588.     END;
  589.  
  590.     PMSAMLogErrorPB = RECORD
  591.         qLink:                    Ptr;
  592.         reservedH1:                LONGINT;
  593.         reservedH2:                LONGINT;
  594.         ioCompletion:            MSAMIOCompletionUPP;
  595.         ioResult:                OSErr;
  596.         saveA5:                    LONGINT;
  597.         reqCode:                INTEGER;
  598.         msamSlotID:                MSAMSlotID;                                { 0 for PMSAM errors }
  599.         logEntry:                ^MailErrorLogEntryInfo;
  600.         filler:                    ARRAY [0..1] OF LONGINT;
  601.     END;
  602.  
  603. {**************************************************************************************}
  604.  
  605. CONST
  606.     kMailMsgSummaryVersion        = 1;
  607.  
  608.  
  609. TYPE
  610.     MailMasterData = RECORD
  611.         attrMask:                MailAttributeBitmap;                    { indicates attributes present in MsgSummary }
  612.         messageID:                MailLetterID;
  613.         replyID:                MailLetterID;
  614.         conversationID:            MailLetterID;
  615.     END;
  616.  
  617. { Values for addressedToMe in struct MailCoreData }
  618.  
  619. CONST
  620.     kAddressedAs_TO                = $1;
  621.     kAddressedAs_CC                = $2;
  622.     kAddressedAs_BCC            = $4;
  623.  
  624.  
  625. TYPE
  626.     MailCoreData = RECORD
  627.         letterFlags:            MailLetterFlags;
  628.         messageSize:            LONGINT;
  629.         letterIndications:        MailIndications;
  630.         messageType:            OCECreatorType;
  631.         sendTime:                MailTime;
  632.         messageFamily:            OSType;
  633.         reserved:                SInt8; (* unsigned char *)
  634.         addressedToMe:            SInt8; (* unsigned char *)
  635.         agentInfo:                ARRAY [0..5] OF CHAR;                    { 6 bytes of special info [set to zero]
  636.     * these are variable length and even padded }
  637.         sender:                    RString32;                                { recipient's entityName (trunc)}
  638.         subject:                RString32;                                { subject maybe truncated }
  639.     END;
  640.  
  641.     MSAMMsgSummary = RECORD
  642.         version:                INTEGER;                                { following flags are defaulted by Toolbox }
  643.         msgDeleted:                BOOLEAN;                                { true if msg is to be deleted by PMSAM }
  644.         msgUpdated:                BOOLEAN;                                { true if msgSummary was updated by MailManager }
  645.         msgCached:                BOOLEAN;                                { true if msg is in the slot's InQueue }
  646.         padByte:                SInt8; (* Byte *)
  647.         masterData:                MailMasterData;
  648.         coreData:                MailCoreData;
  649.     END;
  650.  
  651. { PMSAM can put up to 128 bytes of private msg summary data }
  652.  
  653. CONST
  654.     kMailMaxPMSAMMsgSummaryData    = 128;
  655.  
  656.  
  657. TYPE
  658.     PMSAMCreateMsgSummaryPB = RECORD
  659.         qLink:                    Ptr;
  660.         reservedH1:                LONGINT;
  661.         reservedH2:                LONGINT;
  662.         ioCompletion:            MSAMIOCompletionUPP;
  663.         ioResult:                OSErr;
  664.         saveA5:                    LONGINT;
  665.         reqCode:                INTEGER;
  666.         inQueueRef:                MSAMQueueRef;
  667.         seqNum:                    LONGINT;                                { <- seq of the new message }
  668.         msgSummary:                ^MSAMMsgSummary;                        { attributes and mask filled in }
  669.         buffer:                    ^MailBuffer;                            { PMSAM specific data to be appended }
  670.     END;
  671.  
  672.     PMSAMPutMsgSummaryPB = RECORD
  673.         qLink:                    Ptr;
  674.         reservedH1:                LONGINT;
  675.         reservedH2:                LONGINT;
  676.         ioCompletion:            MSAMIOCompletionUPP;
  677.         ioResult:                OSErr;
  678.         saveA5:                    LONGINT;
  679.         reqCode:                INTEGER;
  680.         inQueueRef:                MSAMQueueRef;
  681.         seqNum:                    LONGINT;
  682.         letterFlags:            ^MailMaskedLetterFlags;                    { if not nil, then set msgStoreFlags }
  683.         buffer:                    ^MailBuffer;                            { PMSAM specific data to be overwritten }
  684.     END;
  685.  
  686.     PMSAMGetMsgSummaryPB = RECORD
  687.         qLink:                    Ptr;
  688.         reservedH1:                LONGINT;
  689.         reservedH2:                LONGINT;
  690.         ioCompletion:            MSAMIOCompletionUPP;
  691.         ioResult:                OSErr;
  692.         saveA5:                    LONGINT;
  693.         reqCode:                INTEGER;
  694.         inQueueRef:                MSAMQueueRef;
  695.         seqNum:                    LONGINT;
  696.         msgSummary:                ^MSAMMsgSummary;                        { if not nil, then read in the msgSummary }
  697.         buffer:                    ^MailBuffer;                            { PMSAM specific data to be read }
  698.         msgSummaryOffset:        INTEGER;                                { offset of PMSAM specific data
  699.                                                from start of MsgSummary }
  700.     END;
  701.  
  702. {**************************************************************************************}
  703. { Definitions for Server MSAMs }
  704. {************************************************************************************}
  705.     SMSAMAdminCode = INTEGER;
  706.  
  707. { Values of SMSAMAdminCode }
  708.  
  709. CONST
  710.     kSMSAMNotifyFwdrSetupChange    = 1;
  711.     kSMSAMNotifyFwdrNameChange    = 2;
  712.     kSMSAMNotifyFwdrPwdChange    = 3;
  713.     kSMSAMGetDynamicFwdrParams    = 4;
  714.  
  715.     
  716. TYPE
  717.     SMSAMSlotChanges = LONGINT;
  718.  
  719.  
  720. CONST
  721.     kSMSAMFwdrHomeInternetChangedBit = 0;
  722.     kSMSAMFwdrConnectedToChangedBit = 1;
  723.     kSMSAMFwdrForeignRLIsChangedBit = 2;
  724.     kSMSAMFwdrMnMServerChangedBit = 3;
  725.  
  726. { Values of SMSAMSlotChanges }
  727.     kSMSAMFwdrEverythingChangedMask = -1;
  728.     kSMSAMFwdrHomeInternetChangedMask = 1 * (2**(kSMSAMFwdrHomeInternetChangedBit));
  729.     kSMSAMFwdrConnectedToChangedMask = 1 * (2**(kSMSAMFwdrConnectedToChangedBit));
  730.     kSMSAMFwdrForeignRLIsChangedMask = 1 * (2**(kSMSAMFwdrForeignRLIsChangedBit));
  731.     kSMSAMFwdrMnMServerChangedMask = 1 * (2**(kSMSAMFwdrMnMServerChangedBit));
  732.  
  733. { kSMSAMNotifyFwdrSetupChange }
  734.  
  735. TYPE
  736.     SMSAMSetupChange = RECORD
  737.         whatChanged:            SMSAMSlotChanges;                        {  --> bitmap of what parameters changed }
  738.         serverHint:                AddrBlock;                                {  --> try this ADAP server first }
  739.     END;
  740.  
  741. { kSMSAMNotifyFwdrNameChange }
  742.     SMSAMNameChange = RECORD
  743.         newName:                RString;                                {  --> msams new name }
  744.         serverHint:                AddrBlock;                                {  --> try this ADAP server first }
  745.     END;
  746.  
  747. { kSMSAMNotifyFwdrPasswordChange }
  748.     SMSAMPasswordChange = RECORD
  749.         newPassword:            RString;                                {  --> msams new password }
  750.         serverHint:                AddrBlock;                                {  --> try this ADAP server first }
  751.     END;
  752.  
  753. { kSMSAMGetDynamicFwdrParams }
  754.     SMSAMDynamicParams = RECORD
  755.         curDiskUsed:            LONGINT;                                { <--  amount of disk space used by msam }
  756.         curMemoryUsed:            LONGINT;                                { <--  amount of memory used by msam }
  757.     END;
  758.  
  759.     SMSAMAdminEPPCRequest = RECORD
  760.         adminCode:                SMSAMAdminCode;
  761.         CASE INTEGER OF
  762.         0: (
  763.             setupChange:                SMSAMSetupChange;
  764.            );
  765.         1: (
  766.             nameChange:                    SMSAMNameChange;
  767.            );
  768.         2: (
  769.             passwordChange:                SMSAMPasswordChange;
  770.            );
  771.         3: (
  772.             dynamicParams:                SMSAMDynamicParams;
  773.            );
  774.     END;
  775.  
  776.     SMSAMSetupPB = RECORD
  777.         qLink:                    Ptr;
  778.         reservedH1:                LONGINT;
  779.         reservedH2:                LONGINT;
  780.         ioCompletion:            MSAMIOCompletionUPP;
  781.         ioResult:                OSErr;
  782.         saveA5:                    LONGINT;
  783.         reqCode:                INTEGER;
  784.         serverMSAM:                RecordIDPtr;
  785.         password:                RStringPtr;
  786.         gatewayType:            OSType;
  787.         gatewayTypeDescription:    RStringPtr;
  788.         catalogServerHint:        AddrBlock;
  789.     END;
  790.  
  791.     SMSAMStartupPB = RECORD
  792.         qLink:                    Ptr;
  793.         reservedH1:                LONGINT;
  794.         reservedH2:                LONGINT;
  795.         ioCompletion:            MSAMIOCompletionUPP;
  796.         ioResult:                OSErr;
  797.         saveA5:                    LONGINT;
  798.         reqCode:                INTEGER;
  799.         msamIdentity:            AuthIdentity;
  800.         queueRef:                MSAMQueueRef;
  801.     END;
  802.  
  803.     SMSAMShutdownPB = RECORD
  804.         qLink:                    Ptr;
  805.         reservedH1:                LONGINT;
  806.         reservedH2:                LONGINT;
  807.         ioCompletion:            MSAMIOCompletionUPP;
  808.         ioResult:                OSErr;
  809.         saveA5:                    LONGINT;
  810.         reqCode:                INTEGER;
  811.         queueRef:                MSAMQueueRef;
  812.     END;
  813.  
  814. {**************************************************************************************}
  815. { Definitions for reading and writing MSAM Letters }
  816. {**************************************************************************************}
  817.     MSAMEnumeratePB = RECORD
  818.         qLink:                    Ptr;
  819.         reservedH1:                LONGINT;
  820.         reservedH2:                LONGINT;
  821.         ioCompletion:            MSAMIOCompletionUPP;
  822.         ioResult:                OSErr;
  823.         saveA5:                    LONGINT;
  824.         reqCode:                INTEGER;
  825.         queueRef:                MSAMQueueRef;
  826.         startSeqNum:            LONGINT;
  827.         nextSeqNum:                LONGINT;
  828.         { buffer contains a Mail Reply. Each tuple is a 
  829.     MSAMEnumerateInQReply when enumerating the inQueue
  830.     MSAMEnumerateOutQReply when enumerating the outQueue }
  831.         buffer:                    MailBuffer;
  832.     END;
  833.  
  834.     MSAMEnumerateInQReply = RECORD
  835.         seqNum:                    LONGINT;
  836.         msgDeleted:                BOOLEAN;                                { true if msg is to be deleted by PMSAM }
  837.         msgUpdated:                BOOLEAN;                                { true if MsgSummary has been updated by TB }
  838.         msgCached:                BOOLEAN;                                { true if msg is in the incoming queue }
  839.         padByte:                SInt8; (* Byte *)
  840.     END;
  841.  
  842.     MSAMEnumerateOutQReply = RECORD
  843.         seqNum:                    LONGINT;
  844.         done:                    BOOLEAN;                                { true if all responsible recipients have been processed }
  845.         priority:                IPMPriority;
  846.         msgFamily:                OSType;
  847.         approxSize:                LONGINT;
  848.         tunnelForm:                BOOLEAN;                                { true if this letter has to be tunnelled }
  849.         padByte:                SInt8; (* Byte *)
  850.         nextHop:                NetworkSpec;                            { valid if tunnelForm is true }
  851.         msgType:                OCECreatorType;
  852.     END;
  853.  
  854.     MSAMDeletePB = RECORD
  855.         qLink:                    Ptr;
  856.         reservedH1:                LONGINT;
  857.         reservedH2:                LONGINT;
  858.         ioCompletion:            MSAMIOCompletionUPP;
  859.         ioResult:                OSErr;
  860.         saveA5:                    LONGINT;
  861.         reqCode:                INTEGER;
  862.         queueRef:                MSAMQueueRef;
  863.         seqNum:                    LONGINT;
  864.         msgOnly:                BOOLEAN;                                { only valid for PMSAM & inQueue }
  865.         { set true to delete message but not msgSummary }
  866.         padByte:                SInt8; (* Byte *)
  867.         { only valid for SMSAM & tunnelled messages }
  868.         result:                    OSErr;
  869.     END;
  870.  
  871.     MSAMOpenPB = RECORD
  872.         qLink:                    Ptr;
  873.         reservedH1:                LONGINT;
  874.         reservedH2:                LONGINT;
  875.         ioCompletion:            MSAMIOCompletionUPP;
  876.         ioResult:                OSErr;
  877.         saveA5:                    LONGINT;
  878.         reqCode:                INTEGER;
  879.         queueRef:                MSAMQueueRef;
  880.         seqNum:                    LONGINT;
  881.         mailMsgRef:                MailMsgRef;
  882.     END;
  883.  
  884.     MSAMOpenNestedPB = RECORD
  885.         qLink:                    Ptr;
  886.         reservedH1:                LONGINT;
  887.         reservedH2:                LONGINT;
  888.         ioCompletion:            MSAMIOCompletionUPP;
  889.         ioResult:                OSErr;
  890.         saveA5:                    LONGINT;
  891.         reqCode:                INTEGER;
  892.         mailMsgRef:                MailMsgRef;
  893.         nestedRef:                MailMsgRef;
  894.     END;
  895.  
  896.     MSAMClosePB = RECORD
  897.         qLink:                    Ptr;
  898.         reservedH1:                LONGINT;
  899.         reservedH2:                LONGINT;
  900.         ioCompletion:            MSAMIOCompletionUPP;
  901.         ioResult:                OSErr;
  902.         saveA5:                    LONGINT;
  903.         reqCode:                INTEGER;
  904.         mailMsgRef:                MailMsgRef;
  905.     END;
  906.  
  907.     MSAMGetMsgHeaderPB = RECORD
  908.         qLink:                    Ptr;
  909.         reservedH1:                LONGINT;
  910.         reservedH2:                LONGINT;
  911.         ioCompletion:            MSAMIOCompletionUPP;
  912.         ioResult:                OSErr;
  913.         saveA5:                    LONGINT;
  914.         reqCode:                INTEGER;
  915.         mailMsgRef:                MailMsgRef;
  916.         selector:                SInt8; (* IPMHeaderSelector *)
  917.         filler1:                BOOLEAN;
  918.         offset:                    LONGINT;
  919.         buffer:                    MailBuffer;
  920.         remaining:                LONGINT;
  921.     END;
  922.  
  923.     MSAMGetAttributesPB = RECORD
  924.         qLink:                    Ptr;
  925.         reservedH1:                LONGINT;
  926.         reservedH2:                LONGINT;
  927.         ioCompletion:            MSAMIOCompletionUPP;
  928.         ioResult:                OSErr;
  929.         saveA5:                    LONGINT;
  930.         reqCode:                INTEGER;
  931.         mailMsgRef:                MailMsgRef;
  932.         requestMask:            MailAttributeBitmap;                    { kMailIndicationsBit thru kMailSubjectBit }
  933.         buffer:                    MailBuffer;
  934.         {    buffer returned will contain the attribute values of 
  935.         the attributes indicated in responseMask, 
  936.         from the attribute indicated by the least significant bit set
  937.         to the attribute indicated by the most significant bit set.
  938.         Note that recipients - from, to, cc, bcc cannot be read using
  939.         this call. Use GetRecipients to read these. }
  940.         responseMask:            MailAttributeBitmap;
  941.         more:                    BOOLEAN;
  942.         filler1:                BOOLEAN;
  943.     END;
  944.  
  945. { attrID value to get resolved recipient list }
  946.  
  947. CONST
  948.     kMailResolvedList            = 0;
  949.  
  950.  
  951. TYPE
  952.     MailOriginalRecipient = RECORD
  953.         index:                    INTEGER;
  954.     END;
  955.  
  956. { Followed by OCEPackedRecipient }
  957.     MailResolvedRecipient = RECORD
  958.         index:                    INTEGER;
  959.         recipientFlags:            INTEGER;
  960.         responsible:            BOOLEAN;
  961.         padByte:                SInt8; (* Byte *)
  962.     END;
  963.  
  964. { Followed by OCEPackedRecipient }
  965.     MSAMGetRecipientsPB = RECORD
  966.         qLink:                    Ptr;
  967.         reservedH1:                LONGINT;
  968.         reservedH2:                LONGINT;
  969.         ioCompletion:            MSAMIOCompletionUPP;
  970.         ioResult:                OSErr;
  971.         saveA5:                    LONGINT;
  972.         reqCode:                INTEGER;
  973.         mailMsgRef:                MailMsgRef;
  974.         attrID:                    MailAttributeID;                        { kMailFromBit thru kMailBccBit }
  975.         startIndex:                INTEGER;                                { starts at 1 }
  976.         buffer:                    MailBuffer;
  977.         {     buffer contains a Mail Reply. Each tuple is a
  978.         MailOriginalRecipient if getting original recipients 
  979.                                 ie the attrID is kMail[From, To, Cc, Bcc]Bit
  980.         MailResolvedRecipient if getting resolved reicpients
  981.                                 ie the attrID is kMailResolvedList
  982.         Both tuples are word alligned.  }
  983.         nextIndex:                INTEGER;
  984.         more:                    BOOLEAN;
  985.         filler1:                BOOLEAN;
  986.     END;
  987.  
  988.     MSAMGetContentPB = RECORD
  989.         qLink:                    Ptr;
  990.         reservedH1:                LONGINT;
  991.         reservedH2:                LONGINT;
  992.         ioCompletion:            MSAMIOCompletionUPP;
  993.         ioResult:                OSErr;
  994.         saveA5:                    LONGINT;
  995.         reqCode:                INTEGER;
  996.         mailMsgRef:                MailMsgRef;
  997.         segmentMask:            MailSegmentMask;
  998.         buffer:                    MailBuffer;
  999.         textScrap:                ^StScrpRec;
  1000.         script:                    ScriptCode;
  1001.         segmentType:            MailSegmentType;
  1002.         endOfScript:            BOOLEAN;
  1003.         endOfSegment:            BOOLEAN;
  1004.         endOfContent:            BOOLEAN;
  1005.         filler1:                BOOLEAN;
  1006.         segmentLength:            LONGINT;                                { NEW: <-  valid first call in a segment }
  1007.         segmentID:                LONGINT;                                { NEW: <-> identifier for this segment }
  1008.     END;
  1009.  
  1010.     MSAMGetEnclosurePB = RECORD
  1011.         qLink:                    Ptr;
  1012.         reservedH1:                LONGINT;
  1013.         reservedH2:                LONGINT;
  1014.         ioCompletion:            MSAMIOCompletionUPP;
  1015.         ioResult:                OSErr;
  1016.         saveA5:                    LONGINT;
  1017.         reqCode:                INTEGER;
  1018.         mailMsgRef:                MailMsgRef;
  1019.         contentEnclosure:        BOOLEAN;
  1020.         padByte:                SInt8; (* Byte *)
  1021.         buffer:                    MailBuffer;
  1022.         endOfFile:                BOOLEAN;
  1023.         endOfEnclosures:        BOOLEAN;
  1024.     END;
  1025.  
  1026.     MailBlockInfo = RECORD
  1027.         blockType:                OCECreatorType;
  1028.         offset:                    LONGINT;
  1029.         blockLength:            LONGINT;
  1030.     END;
  1031.  
  1032.     MSAMEnumerateBlocksPB = RECORD
  1033.         qLink:                    Ptr;
  1034.         reservedH1:                LONGINT;
  1035.         reservedH2:                LONGINT;
  1036.         ioCompletion:            MSAMIOCompletionUPP;
  1037.         ioResult:                OSErr;
  1038.         saveA5:                    LONGINT;
  1039.         reqCode:                INTEGER;
  1040.         mailMsgRef:                MailMsgRef;
  1041.         startIndex:                INTEGER;                                { starts at 1 }
  1042.         buffer:                    MailBuffer;
  1043.         {     buffer contains a Mail Reply. Each tuple is a MailBlockInfo }
  1044.         nextIndex:                INTEGER;
  1045.         more:                    BOOLEAN;
  1046.         filler1:                BOOLEAN;
  1047.     END;
  1048.  
  1049.     MSAMGetBlockPB = RECORD
  1050.         qLink:                    Ptr;
  1051.         reservedH1:                LONGINT;
  1052.         reservedH2:                LONGINT;
  1053.         ioCompletion:            MSAMIOCompletionUPP;
  1054.         ioResult:                OSErr;
  1055.         saveA5:                    LONGINT;
  1056.         reqCode:                INTEGER;
  1057.         mailMsgRef:                MailMsgRef;
  1058.         blockType:                OCECreatorType;
  1059.         blockIndex:                INTEGER;
  1060.         buffer:                    MailBuffer;
  1061.         dataOffset:                LONGINT;
  1062.         endOfBlock:                BOOLEAN;
  1063.         padByte:                SInt8; (* Byte *)
  1064.         remaining:                LONGINT;
  1065.     END;
  1066.  
  1067. { YOU SHOULD BE USING THE NEW FORM OF MARK RECIPIENTS
  1068.  * THIS VERSION IS MUCH SLOWER AND KEPT FOR COMPATIBILITY
  1069.  * REASONS.
  1070. }
  1071. { not valid for tunnel form letters }
  1072.     MSAMMarkRecipientsPB = RECORD
  1073.         qLink:                    Ptr;
  1074.         reservedH1:                LONGINT;
  1075.         reservedH2:                LONGINT;
  1076.         ioCompletion:            MSAMIOCompletionUPP;
  1077.         ioResult:                OSErr;
  1078.         saveA5:                    LONGINT;
  1079.         reqCode:                INTEGER;
  1080.         queueRef:                MSAMQueueRef;
  1081.         seqNum:                    LONGINT;
  1082.         {     buffer contains a Mail Reply. Each tuple is an unsigned short,
  1083.         the index of a recipient to be marked. }
  1084.         buffer:                    MailBuffer;
  1085.     END;
  1086.  
  1087. { 
  1088.  * same as MSAMMarkRecipients except it takes a mailMsgRef instead of 
  1089.  * queueRef, seqNum 
  1090. }
  1091. { not valid for tunnel form letters }
  1092.     MSAMnMarkRecipientsPB = RECORD
  1093.         qLink:                    Ptr;
  1094.         reservedH1:                LONGINT;
  1095.         reservedH2:                LONGINT;
  1096.         ioCompletion:            MSAMIOCompletionUPP;
  1097.         ioResult:                OSErr;
  1098.         saveA5:                    LONGINT;
  1099.         reqCode:                INTEGER;
  1100.         mailMsgRef:                MailMsgRef;
  1101.         {     buffer contains a Mail Reply. Each tuple is an unsigned short,
  1102.         the index of a recipient to be marked. }
  1103.         buffer:                    MailBuffer;
  1104.     END;
  1105.  
  1106. {**************************************************************************************}
  1107.     MSAMCreatePB = RECORD
  1108.         qLink:                    Ptr;
  1109.         reservedH1:                LONGINT;
  1110.         reservedH2:                LONGINT;
  1111.         ioCompletion:            MSAMIOCompletionUPP;
  1112.         ioResult:                OSErr;
  1113.         saveA5:                    LONGINT;
  1114.         reqCode:                INTEGER;
  1115.         queueRef:                MSAMQueueRef;
  1116.         asLetter:                BOOLEAN;                                { indicate if we should create as letter or msg }
  1117.         filler1:                BOOLEAN;
  1118.         msgType:                IPMMsgType;                                { up to application discretion: must be of IPMSenderTag
  1119.                                            kIPMOSFormatType for asLetter=true }
  1120.         refCon:                    LONGINT;                                { for messages only }
  1121.         seqNum:                    LONGINT;                                { set if creating message in the inQueue }
  1122.         tunnelForm:                BOOLEAN;                                { if true tunnelForm else newForm }
  1123.         bccRecipients:            BOOLEAN;                                { true if creating letter with bcc recipients }
  1124.         newRef:                    MailMsgRef;
  1125.     END;
  1126.  
  1127.     MSAMBeginNestedPB = RECORD
  1128.         qLink:                    Ptr;
  1129.         reservedH1:                LONGINT;
  1130.         reservedH2:                LONGINT;
  1131.         ioCompletion:            MSAMIOCompletionUPP;
  1132.         ioResult:                OSErr;
  1133.         saveA5:                    LONGINT;
  1134.         reqCode:                INTEGER;
  1135.         mailMsgRef:                MailMsgRef;
  1136.         refCon:                    LONGINT;                                { for messages only }
  1137.         msgType:                IPMMsgType;
  1138.     END;
  1139.  
  1140.     MSAMEndNestedPB = RECORD
  1141.         qLink:                    Ptr;
  1142.         reservedH1:                LONGINT;
  1143.         reservedH2:                LONGINT;
  1144.         ioCompletion:            MSAMIOCompletionUPP;
  1145.         ioResult:                OSErr;
  1146.         saveA5:                    LONGINT;
  1147.         reqCode:                INTEGER;
  1148.         mailMsgRef:                MailMsgRef;
  1149.     END;
  1150.  
  1151.     MSAMSubmitPB = RECORD
  1152.         qLink:                    Ptr;
  1153.         reservedH1:                LONGINT;
  1154.         reservedH2:                LONGINT;
  1155.         ioCompletion:            MSAMIOCompletionUPP;
  1156.         ioResult:                OSErr;
  1157.         saveA5:                    LONGINT;
  1158.         reqCode:                INTEGER;
  1159.         mailMsgRef:                MailMsgRef;
  1160.         submitFlag:                BOOLEAN;
  1161.         padByte:                SInt8; (* Byte *)
  1162.         msgID:                    MailLetterID;
  1163.     END;
  1164.  
  1165.     MSAMPutMsgHeaderPB = RECORD
  1166.         qLink:                    Ptr;
  1167.         reservedH1:                LONGINT;
  1168.         reservedH2:                LONGINT;
  1169.         ioCompletion:            MSAMIOCompletionUPP;
  1170.         ioResult:                OSErr;
  1171.         saveA5:                    LONGINT;
  1172.         reqCode:                INTEGER;
  1173.         mailMsgRef:                MailMsgRef;
  1174.         replyQueue:                ^OCERecipient;
  1175.         sender:                    ^IPMSender;
  1176.         deliveryNotification:    IPMNotificationType;
  1177.         priority:                IPMPriority;
  1178.     END;
  1179.  
  1180.     MSAMPutAttributePB = RECORD
  1181.         qLink:                    Ptr;
  1182.         reservedH1:                LONGINT;
  1183.         reservedH2:                LONGINT;
  1184.         ioCompletion:            MSAMIOCompletionUPP;
  1185.         ioResult:                OSErr;
  1186.         saveA5:                    LONGINT;
  1187.         reqCode:                INTEGER;
  1188.         mailMsgRef:                MailMsgRef;
  1189.         attrID:                    MailAttributeID;                        { kMailIndicationsBit thru kMailSubjectBit }
  1190.         buffer:                    MailBuffer;
  1191.     END;
  1192.  
  1193.     MSAMPutRecipientPB = RECORD
  1194.         qLink:                    Ptr;
  1195.         reservedH1:                LONGINT;
  1196.         reservedH2:                LONGINT;
  1197.         ioCompletion:            MSAMIOCompletionUPP;
  1198.         ioResult:                OSErr;
  1199.         saveA5:                    LONGINT;
  1200.         reqCode:                INTEGER;
  1201.         mailMsgRef:                MailMsgRef;
  1202.         attrID:                    MailAttributeID;                        { kMailFromBit thru kMailBccBit }
  1203.         recipient:                ^MailRecipient;
  1204.         responsible:            BOOLEAN;                                { valid for server and message msams only }
  1205.         filler1:                BOOLEAN;
  1206.     END;
  1207.  
  1208.     MSAMPutContentPB = RECORD
  1209.         qLink:                    Ptr;
  1210.         reservedH1:                LONGINT;
  1211.         reservedH2:                LONGINT;
  1212.         ioCompletion:            MSAMIOCompletionUPP;
  1213.         ioResult:                OSErr;
  1214.         saveA5:                    LONGINT;
  1215.         reqCode:                INTEGER;
  1216.         mailMsgRef:                MailMsgRef;
  1217.         segmentType:            MailSegmentType;
  1218.         append:                    BOOLEAN;
  1219.         padByte:                SInt8; (* Byte *)
  1220.         buffer:                    MailBuffer;
  1221.         textScrap:                ^StScrpRec;
  1222.         startNewScript:            BOOLEAN;
  1223.         filler1:                BOOLEAN;
  1224.         script:                    ScriptCode;                                { valid only if startNewScript is true }
  1225.     END;
  1226.  
  1227.     MSAMPutEnclosurePB = RECORD
  1228.         qLink:                    Ptr;
  1229.         reservedH1:                LONGINT;
  1230.         reservedH2:                LONGINT;
  1231.         ioCompletion:            MSAMIOCompletionUPP;
  1232.         ioResult:                OSErr;
  1233.         saveA5:                    LONGINT;
  1234.         reqCode:                INTEGER;
  1235.         mailMsgRef:                MailMsgRef;
  1236.         contentEnclosure:        BOOLEAN;
  1237.         padByte:                SInt8; (* Byte *)
  1238.         hfs:                    BOOLEAN;                                { true => in file system, false => in memory }
  1239.         append:                    BOOLEAN;
  1240.         buffer:                    MailBuffer;                                { Unused if hfs == true }
  1241.         enclosure:                FSSpec;
  1242.         addlInfo:                MailEnclosureInfo;
  1243.     END;
  1244.  
  1245.     MSAMPutBlockPB = RECORD
  1246.         qLink:                    Ptr;
  1247.         reservedH1:                LONGINT;
  1248.         reservedH2:                LONGINT;
  1249.         ioCompletion:            MSAMIOCompletionUPP;
  1250.         ioResult:                OSErr;
  1251.         saveA5:                    LONGINT;
  1252.         reqCode:                INTEGER;
  1253.         mailMsgRef:                MailMsgRef;
  1254.         refCon:                    LONGINT;                                { for messages only }
  1255.         blockType:                OCECreatorType;
  1256.         append:                    BOOLEAN;
  1257.         filler1:                BOOLEAN;
  1258.         buffer:                    MailBuffer;
  1259.         mode:                    MailBlockMode;                            { if blockType is kMailTunnelLtrType or kMailHopInfoType
  1260.                                        mode is assumed to be kMailFromMark }
  1261.         offset:                    LONGINT;
  1262.     END;
  1263.  
  1264. {**************************************************************************************}
  1265.     MSAMCreateReportPB = RECORD
  1266.         qLink:                    Ptr;
  1267.         reservedH1:                LONGINT;
  1268.         reservedH2:                LONGINT;
  1269.         ioCompletion:            MSAMIOCompletionUPP;
  1270.         ioResult:                OSErr;
  1271.         saveA5:                    LONGINT;
  1272.         reqCode:                INTEGER;
  1273.         queueRef:                MSAMQueueRef;                            { to distinguish personal and server MSAMs }
  1274.         mailMsgRef:                MailMsgRef;
  1275.         msgID:                    MailLetterID;                            { kMailLetterIDBit of letter being reported upon }
  1276.         sender:                    ^MailRecipient;                            { sender of the letter you are creating report on }
  1277.     END;
  1278.  
  1279.     MSAMPutRecipientReportPB = RECORD
  1280.         qLink:                    Ptr;
  1281.         reservedH1:                LONGINT;
  1282.         reservedH2:                LONGINT;
  1283.         ioCompletion:            MSAMIOCompletionUPP;
  1284.         ioResult:                OSErr;
  1285.         saveA5:                    LONGINT;
  1286.         reqCode:                INTEGER;
  1287.         mailMsgRef:                MailMsgRef;
  1288.         recipientIndex:            INTEGER;                                { recipient index in the original letter }
  1289.         result:                    OSErr;                                    { result of sending the recipient }
  1290.     END;
  1291.  
  1292. {**************************************************************************************}
  1293.     MailWakeupPMSAMPB = RECORD
  1294.         qLink:                    Ptr;
  1295.         reservedH1:                LONGINT;
  1296.         reservedH2:                LONGINT;
  1297.         ioCompletion:            MSAMIOCompletionUPP;
  1298.         ioResult:                OSErr;
  1299.         saveA5:                    LONGINT;
  1300.         reqCode:                INTEGER;
  1301.         pmsamCID:                CreationID;
  1302.         mailSlotID:                MailSlotID;
  1303.     END;
  1304.  
  1305.     MailCreateMailSlotPB = RECORD
  1306.         qLink:                    Ptr;
  1307.         reservedH1:                LONGINT;
  1308.         reservedH2:                LONGINT;
  1309.         ioCompletion:            MSAMIOCompletionUPP;
  1310.         ioResult:                OSErr;
  1311.         saveA5:                    LONGINT;
  1312.         reqCode:                INTEGER;
  1313.         mailboxRef:                MailboxRef;
  1314.         timeout:                LONGINT;
  1315.         pmsamCID:                CreationID;
  1316.         smca:                    SMCA;
  1317.     END;
  1318.  
  1319.     MailModifyMailSlotPB = RECORD
  1320.         qLink:                    Ptr;
  1321.         reservedH1:                LONGINT;
  1322.         reservedH2:                LONGINT;
  1323.         ioCompletion:            MSAMIOCompletionUPP;
  1324.         ioResult:                OSErr;
  1325.         saveA5:                    LONGINT;
  1326.         reqCode:                INTEGER;
  1327.         mailboxRef:                MailboxRef;
  1328.         timeout:                LONGINT;
  1329.         pmsamCID:                CreationID;
  1330.         smca:                    SMCA;
  1331.     END;
  1332.  
  1333. {**************************************************************************************}
  1334.  
  1335. CONST
  1336.     kPMSAMGetMSAMRecord            = 1286;
  1337.     kPMSAMOpenQueues            = 1280;
  1338.     kPMSAMLogError                = 1313;
  1339.     kPMSAMSetStatus                = 1319;
  1340.     kPMSAMCreateMsgSummary        = 1314;
  1341.     kPMSAMPutMsgSummary            = 1317;
  1342.     kPMSAMGetMsgSummary            = 1318;
  1343.     kMailWakeupPMSAM            = 1287;
  1344.     kSMSAMSetup                    = 1315;
  1345.     kSMSAMStartup                = 1281;
  1346.     kSMSAMShutdown                = 1282;
  1347.     kMSAMEnumerate                = 1283;
  1348.     kMSAMDelete                    = 1284;
  1349.     kMSAMOpen                    = 1288;
  1350.     kMSAMOpenNested                = 1289;
  1351.     kMSAMClose                    = 1290;
  1352.     kMSAMGetMsgHeader            = 1297;
  1353.     kMSAMnMarkRecipients        = 1298;
  1354.     kMSAMGetAttributes            = 1291;
  1355.     kMSAMGetRecipients            = 1292;
  1356.     kMSAMGetContent                = 1293;
  1357.     kMSAMGetEnclosure            = 1294;
  1358.     kMSAMEnumerateBlocks        = 1295;
  1359.     kMSAMGetBlock                = 1296;
  1360.     kMSAMMarkRecipients            = 1285;
  1361.     kMSAMCreate                    = 1300;
  1362.     kMSAMBeginNested            = 1301;
  1363.     kMSAMEndNested                = 1302;
  1364.     kMSAMSubmit                    = 1303;
  1365.     kMSAMPutMsgHeader            = 1309;
  1366.     kMSAMPutAttribute            = 1304;
  1367.     kMSAMPutRecipient            = 1305;
  1368.     kMSAMPutContent                = 1306;
  1369.     kMSAMPutEnclosure            = 1307;
  1370.     kMSAMPutBlock                = 1308;
  1371.     kMSAMCreateReport            = 1311;
  1372.     kMSAMPutRecipientReport        = 1312;
  1373.     kMailCreateMailSlot            = 1323;
  1374.     kMailModifyMailSlot            = 1324;
  1375.  
  1376.  
  1377. TYPE
  1378.     MSAMParam = RECORD
  1379.         CASE INTEGER OF
  1380.         0: (
  1381.             qLink:                        Ptr;
  1382.             reservedH1:                    LONGINT;
  1383.             reservedH2:                    LONGINT;
  1384.             ioCompletion:                MSAMIOCompletionUPP;
  1385.             ioResult:                    OSErr;
  1386.             saveA5:                        LONGINT;
  1387.             reqCode:                    INTEGER;
  1388.            );
  1389.         1: (
  1390.             pmsamGetMSAMRecord:            PMSAMGetMSAMRecordPB;
  1391.            );
  1392.         2: (
  1393.             pmsamOpenQueues:            PMSAMOpenQueuesPB;
  1394.            );
  1395.         3: (
  1396.             pmsamSetStatus:                PMSAMSetStatusPB;
  1397.            );
  1398.         4: (
  1399.             pmsamLogError:                PMSAMLogErrorPB;
  1400.            );
  1401.         5: (
  1402.             smsamSetup:                    SMSAMSetupPB;
  1403.            );
  1404.         6: (
  1405.             smsamStartup:                SMSAMStartupPB;
  1406.            );
  1407.         7: (
  1408.             smsamShutdown:                SMSAMShutdownPB;
  1409.            );
  1410.         8: (
  1411.             msamEnumerate:                MSAMEnumeratePB;
  1412.            );
  1413.         9: (
  1414.             msamDelete:                    MSAMDeletePB;
  1415.            );
  1416.         10: (
  1417.             msamOpen:                    MSAMOpenPB;
  1418.            );
  1419.         11: (
  1420.             msamOpenNested:                MSAMOpenNestedPB;
  1421.            );
  1422.         12: (
  1423.             msamClose:                    MSAMClosePB;
  1424.            );
  1425.         13: (
  1426.             msamGetMsgHeader:            MSAMGetMsgHeaderPB;
  1427.            );
  1428.         14: (
  1429.             msamGetAttributes:            MSAMGetAttributesPB;
  1430.            );
  1431.         15: (
  1432.             msamGetRecipients:            MSAMGetRecipientsPB;
  1433.            );
  1434.         16: (
  1435.             msamGetContent:                MSAMGetContentPB;
  1436.            );
  1437.         17: (
  1438.             msamGetEnclosure:            MSAMGetEnclosurePB;
  1439.            );
  1440.         18: (
  1441.             msamEnumerateBlocks:        MSAMEnumerateBlocksPB;
  1442.            );
  1443.         19: (
  1444.             msamGetBlock:                MSAMGetBlockPB;
  1445.            );
  1446.         20: (
  1447.             msamMarkRecipients:            MSAMMarkRecipientsPB;
  1448.            );
  1449.         21: (
  1450.             msamnMarkRecipients:        MSAMnMarkRecipientsPB;
  1451.            );
  1452.         22: (
  1453.             msamCreate:                    MSAMCreatePB;
  1454.            );
  1455.         23: (
  1456.             msamBeginNested:            MSAMBeginNestedPB;
  1457.            );
  1458.         24: (
  1459.             msamEndNested:                MSAMEndNestedPB;
  1460.            );
  1461.         25: (
  1462.             msamSubmit:                    MSAMSubmitPB;
  1463.            );
  1464.         26: (
  1465.             msamPutMsgHeader:            MSAMPutMsgHeaderPB;
  1466.            );
  1467.         27: (
  1468.             msamPutAttribute:            MSAMPutAttributePB;
  1469.            );
  1470.         28: (
  1471.             msamPutRecipient:            MSAMPutRecipientPB;
  1472.            );
  1473.         29: (
  1474.             msamPutContent:                MSAMPutContentPB;
  1475.            );
  1476.         30: (
  1477.             msamPutEnclosure:            MSAMPutEnclosurePB;
  1478.            );
  1479.         31: (
  1480.             msamPutBlock:                MSAMPutBlockPB;
  1481.            );
  1482.         32: (
  1483.             msamCreateReport:            MSAMCreateReportPB;                    { Reports and Error Handling Calls }
  1484.            );
  1485.         33: (
  1486.             msamPutRecipientReport:        MSAMPutRecipientReportPB;
  1487.            );
  1488.         34: (
  1489.             pmsamCreateMsgSummary:        PMSAMCreateMsgSummaryPB;
  1490.            );
  1491.         35: (
  1492.             pmsamPutMsgSummary:            PMSAMPutMsgSummaryPB;
  1493.            );
  1494.         36: (
  1495.             pmsamGetMsgSummary:            PMSAMGetMsgSummaryPB;
  1496.            );
  1497.         37: (
  1498.             wakeupPMSAM:                MailWakeupPMSAMPB;
  1499.            );
  1500.         38: (
  1501.             createMailSlot:                MailCreateMailSlotPB;
  1502.            );
  1503.         39: (
  1504.             modifyMailSlot:                MailModifyMailSlotPB;
  1505.            );
  1506.     END;
  1507.  
  1508. CONST
  1509.     uppMSAMIOCompletionProcInfo = $000000C0; { PROCEDURE (4 byte param); }
  1510.  
  1511. PROCEDURE CallMSAMIOCompletionProc(VAR paramBlock: MSAMParam; userRoutine: MSAMIOCompletionUPP);
  1512.     {$IFC NOT GENERATINGCFM}
  1513.     INLINE $205F, $4E90;
  1514.     {$ENDC}
  1515.  
  1516. FUNCTION NewMSAMIOCompletionProc(userRoutine: MSAMIOCompletionProcPtr): MSAMIOCompletionUPP;
  1517.     {$IFC NOT GENERATINGCFM }
  1518.     INLINE $2E9F;
  1519.     {$ENDC}
  1520.  
  1521. FUNCTION MailCreateMailSlot(VAR paramBlock: MSAMParam): OSErr;
  1522.     {$IFC NOT GENERATINGCFM}
  1523.     INLINE $7001, $1f00, $3f3c, 1323, $AA5E;
  1524.     {$ENDC}
  1525. { ASYNCHRONOUS ONLY, client must call WaitNextEvent }
  1526. FUNCTION MailModifyMailSlot(VAR paramBlock: MSAMParam): OSErr;
  1527.     {$IFC NOT GENERATINGCFM}
  1528.     INLINE $7001, $1f00, $3f3c, 1324, $AA5E;
  1529.     {$ENDC}
  1530. { ASYNCHRONOUS ONLY, client must call WaitNextEvent }
  1531. FUNCTION MailWakeupPMSAM(VAR paramBlock: MSAMParam): OSErr;
  1532.     {$IFC NOT GENERATINGCFM}
  1533.     INLINE $7001, $1f00, $3f3c, 1287, $AA5E;
  1534.     {$ENDC}
  1535. { Personal MSAM Glue Routines }
  1536. FUNCTION PMSAMOpenQueues(VAR paramBlock: MSAMParam): OSErr;
  1537.     {$IFC NOT GENERATINGCFM}
  1538.     INLINE $7000, $1f00, $3f3c, 1280, $AA5E;
  1539.     {$ENDC}
  1540. FUNCTION PMSAMSetStatus(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1541.     {$IFC NOT GENERATINGCFM}
  1542.     INLINE $3f3c, 1319, $AA5E;
  1543.     {$ENDC}
  1544. { SYNC ONLY }
  1545. FUNCTION PMSAMGetMSAMRecord(VAR paramBlock: MSAMParam): OSErr;
  1546.     {$IFC NOT GENERATINGCFM}
  1547.     INLINE $7000, $1f00, $3f3c, 1286, $AA5E;
  1548.     {$ENDC}
  1549. { Server MSAM Glue Routines }
  1550. { SYNC ONLY }
  1551. FUNCTION SMSAMSetup(VAR paramBlock: MSAMParam): OSErr;
  1552.     {$IFC NOT GENERATINGCFM}
  1553.     INLINE $7000, $1f00, $3f3c, 1315, $AA5E;
  1554.     {$ENDC}
  1555. { SYNC ONLY }
  1556. FUNCTION SMSAMStartup(VAR paramBlock: MSAMParam): OSErr;
  1557.     {$IFC NOT GENERATINGCFM}
  1558.     INLINE $7000, $1f00, $3f3c, 1281, $AA5E;
  1559.     {$ENDC}
  1560. FUNCTION SMSAMShutdown(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1561.     {$IFC NOT GENERATINGCFM}
  1562.     INLINE $3f3c, 1282, $AA5E;
  1563.     {$ENDC}
  1564. { Get Interface Glue Routines }
  1565. FUNCTION MSAMEnumerate(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1566.     {$IFC NOT GENERATINGCFM}
  1567.     INLINE $3f3c, 1283, $AA5E;
  1568.     {$ENDC}
  1569. FUNCTION MSAMDelete(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1570.     {$IFC NOT GENERATINGCFM}
  1571.     INLINE $3f3c, 1284, $AA5E;
  1572.     {$ENDC}
  1573. FUNCTION MSAMMarkRecipients(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1574.     {$IFC NOT GENERATINGCFM}
  1575.     INLINE $3f3c, 1285, $AA5E;
  1576.     {$ENDC}
  1577. FUNCTION MSAMnMarkRecipients(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1578.     {$IFC NOT GENERATINGCFM}
  1579.     INLINE $3f3c, 1298, $AA5E;
  1580.     {$ENDC}
  1581. FUNCTION MSAMOpen(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1582.     {$IFC NOT GENERATINGCFM}
  1583.     INLINE $3f3c, 1288, $AA5E;
  1584.     {$ENDC}
  1585. FUNCTION MSAMOpenNested(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1586.     {$IFC NOT GENERATINGCFM}
  1587.     INLINE $3f3c, 1289, $AA5E;
  1588.     {$ENDC}
  1589. FUNCTION MSAMClose(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1590.     {$IFC NOT GENERATINGCFM}
  1591.     INLINE $3f3c, 1290, $AA5E;
  1592.     {$ENDC}
  1593. FUNCTION MSAMGetRecipients(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1594.     {$IFC NOT GENERATINGCFM}
  1595.     INLINE $3f3c, 1292, $AA5E;
  1596.     {$ENDC}
  1597. FUNCTION MSAMGetAttributes(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1598.     {$IFC NOT GENERATINGCFM}
  1599.     INLINE $3f3c, 1291, $AA5E;
  1600.     {$ENDC}
  1601. FUNCTION MSAMGetContent(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1602.     {$IFC NOT GENERATINGCFM}
  1603.     INLINE $3f3c, 1293, $AA5E;
  1604.     {$ENDC}
  1605. FUNCTION MSAMGetEnclosure(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1606.     {$IFC NOT GENERATINGCFM}
  1607.     INLINE $3f3c, 1294, $AA5E;
  1608.     {$ENDC}
  1609. FUNCTION MSAMEnumerateBlocks(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1610.     {$IFC NOT GENERATINGCFM}
  1611.     INLINE $3f3c, 1295, $AA5E;
  1612.     {$ENDC}
  1613. FUNCTION MSAMGetBlock(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1614.     {$IFC NOT GENERATINGCFM}
  1615.     INLINE $3f3c, 1296, $AA5E;
  1616.     {$ENDC}
  1617. FUNCTION MSAMGetMsgHeader(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1618.     {$IFC NOT GENERATINGCFM}
  1619.     INLINE $3f3c, 1297, $AA5E;
  1620.     {$ENDC}
  1621. { Put Interface Glue Routines }
  1622. FUNCTION MSAMCreate(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1623.     {$IFC NOT GENERATINGCFM}
  1624.     INLINE $3f3c, 1300, $AA5E;
  1625.     {$ENDC}
  1626. FUNCTION MSAMBeginNested(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1627.     {$IFC NOT GENERATINGCFM}
  1628.     INLINE $3f3c, 1301, $AA5E;
  1629.     {$ENDC}
  1630. FUNCTION MSAMEndNested(VAR paramBlock: MSAMParam): OSErr;
  1631.     {$IFC NOT GENERATINGCFM}
  1632.     INLINE $7000, $1f00, $3f3c, 1302, $AA5E;
  1633.     {$ENDC}
  1634. {  SYNCHRONOUS ONLY }
  1635. FUNCTION MSAMSubmit(VAR paramBlock: MSAMParam): OSErr;
  1636.     {$IFC NOT GENERATINGCFM}
  1637.     INLINE $7000, $1f00, $3f3c, 1303, $AA5E;
  1638.     {$ENDC}
  1639. FUNCTION MSAMPutAttribute(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1640.     {$IFC NOT GENERATINGCFM}
  1641.     INLINE $3f3c, 1304, $AA5E;
  1642.     {$ENDC}
  1643. FUNCTION MSAMPutRecipient(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1644.     {$IFC NOT GENERATINGCFM}
  1645.     INLINE $3f3c, 1305, $AA5E;
  1646.     {$ENDC}
  1647. FUNCTION MSAMPutContent(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1648.     {$IFC NOT GENERATINGCFM}
  1649.     INLINE $3f3c, 1306, $AA5E;
  1650.     {$ENDC}
  1651. {  SYNCHRONOUS ONLY }
  1652. FUNCTION MSAMPutEnclosure(VAR paramBlock: MSAMParam): OSErr;
  1653.     {$IFC NOT GENERATINGCFM}
  1654.     INLINE $7000, $1f00, $3f3c, 1307, $AA5E;
  1655.     {$ENDC}
  1656. FUNCTION MSAMPutBlock(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1657.     {$IFC NOT GENERATINGCFM}
  1658.     INLINE $3f3c, 1308, $AA5E;
  1659.     {$ENDC}
  1660. FUNCTION MSAMPutMsgHeader(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1661.     {$IFC NOT GENERATINGCFM}
  1662.     INLINE $3f3c, 1309, $AA5E;
  1663.     {$ENDC}
  1664. { Reports and Error Handling Glue Routines }
  1665. FUNCTION MSAMCreateReport(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1666.     {$IFC NOT GENERATINGCFM}
  1667.     INLINE $3f3c, 1311, $AA5E;
  1668.     {$ENDC}
  1669. FUNCTION MSAMPutRecipientReport(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1670.     {$IFC NOT GENERATINGCFM}
  1671.     INLINE $3f3c, 1312, $AA5E;
  1672.     {$ENDC}
  1673. FUNCTION PMSAMLogError(VAR paramBlock: MSAMParam): OSErr;
  1674.     {$IFC NOT GENERATINGCFM}
  1675.     INLINE $7000, $1f00, $3f3c, 1313, $AA5E;
  1676.     {$ENDC}
  1677. { MsgSummary Glue Routines }
  1678. FUNCTION PMSAMCreateMsgSummary(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1679.     {$IFC NOT GENERATINGCFM}
  1680.     INLINE $3f3c, 1314, $AA5E;
  1681.     {$ENDC}
  1682. FUNCTION PMSAMPutMsgSummary(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1683.     {$IFC NOT GENERATINGCFM}
  1684.     INLINE $3f3c, 1317, $AA5E;
  1685.     {$ENDC}
  1686. FUNCTION PMSAMGetMsgSummary(VAR paramBlock: MSAMParam; asyncFlag: BOOLEAN): OSErr;
  1687.     {$IFC NOT GENERATINGCFM}
  1688.     INLINE $3f3c, 1318, $AA5E;
  1689.     {$ENDC}
  1690.  
  1691. {$ALIGN RESET}
  1692. {$POP}
  1693.  
  1694. {$SETC UsingIncludes := OCEMailIncludes}
  1695.  
  1696. {$ENDC} {__OCEMAIL__}
  1697.  
  1698. {$IFC NOT UsingIncludes}
  1699.  END.
  1700. {$ENDC}
  1701.